home *** CD-ROM | disk | FTP | other *** search
/ ftp.cs.arizona.edu / ftp.cs.arizona.edu.tar / ftp.cs.arizona.edu / icon / newsgrp / group98c.txt / 000152_icon-group-sender _Mon Dec 21 09:41:14 1998.msg < prev    next >
Internet Message Format  |  2000-09-20  |  945b
  1. Return-Path: <icon-group-sender>
  2. Received: (from root@localhost)
  3.     by baskerville.CS.Arizona.EDU (8.9.1a/8.9.1) id JAA04295
  4.     for icon-group-addresses; Mon, 21 Dec 1998 09:41:07 -0700 (MST)
  5. Message-Id: <199812211641.JAA04295@baskerville.CS.Arizona.EDU>
  6. To: icon-group@optima.CS.Arizona.EDU
  7. Date: 21 Dec 1998 04:36:42 -0600
  8. From: msglass@MCS.COM (Michael Glass)
  9. Subject: Re: Small Icon programming problem
  10. Errors-To: icon-group-errors@optima.CS.Arizona.EDU
  11. Status: RO
  12.  
  13. This won't win any brevity or obscurity awards, but it is another approach.
  14.  
  15.  
  16. procedure digsort(i)
  17.    return if i < 0 then -digsort1(-i) else digsort1(i)
  18. end
  19.  
  20. procedure digsort1(i)
  21.   local pt1, pt2
  22.   if i[pt1 := 2 to *i] < i[pt2 := 1 to pt1-1] then
  23.      return digsort1(i -
  24.           (i[pt2] - i[pt1]) * (10^(pt1 - pt2) - 1) * 10^(*i - pt1))
  25.   return i
  26. end
  27.  
  28. -- Michael Glass
  29.    Illinois Institute of Technology
  30.    (engaging in major work-avoidance)
  31.